home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / src / editors / AME / Rexx / starterror.ame < prev    next >
Encoding:
Text File  |  1994-02-01  |  817 b   |  22 lines
  1. /* $VER: Starterror 37.3 (3.1.94) : Error Initialization */
  2. options results
  3. bindkey "stringrx Mouse" '"options results;dottomouse;getbuffername;if (RC = 0 ) then do;parse var RESULT name .;if name = ''huntbuf'' then do; getline;if(RC = 0) then do;line = RESULT;parse var line '': '' file x ''L:'' lineno .;prevwindow;visit file;gotoidline lineno;end;end;else mouseclick;end"'
  4. nextwindow
  5. setbuffername "huntbuf"
  6. setprefs READ TEMP
  7. prevwindow
  8.  
  9. buffername = 0; getbuffername
  10. if (RC = 0 ) then do; parse var RESULT buffername . ;end
  11.  
  12. popbuffer "huntbuf";find ':'
  13.  
  14. if (rc = 0) then do
  15.     'getline'; parse var result ':' file . ':' line ':'; movebol
  16.     unsetprefs READ; delete; text "*"; setprefs READ; movedown; prevwindow
  17.     visit ""file""; gotoidline line
  18.     end
  19. else do
  20.     prevwindow; eprint "No more errors."
  21. end
  22.